10 PRINT"[147]":GOSUB70::POKE49153,0
20 POKE 53281,0:POKE 53280,0:POKE2043,8
30 PRINT"[144]":PRINT""
40 PRINT "P[207]4096,0:P[207]44,16:LOAD";CHR$(34);F$;CHR$(34)",8"
50 PRINT"RUN"
60 POKE631,13:POKE632,13:POKE198,2:END
70 POKE53280,0:POKE53281,0:IFFTHENRETURN
80 PRINT"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
90 A$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
100 B$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
110 C$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
120 PRINTC$;:FORI=1TO3:PRINTA$C$B$C$;:NEXT
130 PRINT"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177]";:POKE2023,125:POKE56295,6
140 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
150 A$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
160 POKE214,13:PRINT"[145]";:FORI=1TO32:PRINTA$;:NEXT:PRINT"[155]"
170 FORI=1TO5:READA$:GOSUB180:NEXT:GOTO190
180 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
190 F$="SOUND EFFECTIVE":RETURN
200 DATA"[211] [207][160][213][160][206][160][196] [160] [197][160][198][160][198][160][197][160][195][160][212][160][201][160][214] [197]","BY [205]ALCOLM [196]ALE
210 [131]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #75","(null)UBSCRIPTIONS 1-800-831-2694"
220 [131]"LENOPYRIGHT (LEN) 1990 (null)OFTDISK"